home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / c / uemlsrc / ttgetc.s < prev    next >
Encoding:
Text File  |  1987-08-24  |  1.1 KB  |  40 lines
  1.                 .globl  _ttgetc
  2.                 .globl  _ttputc
  3.                 .globl  _scancode
  4.                 .globl  _shiftstatus
  5.                 .text
  6. _ttgetc:        link    A6,#0
  7.                 movem.l D6-D7,-(sp)
  8.                 move    #7,(sp)
  9.                 trap    #1
  10.                 move.l  D0,D7
  11.                 swap    d7
  12.                 move.w  d7,_scancode
  13.                 move.w  #$ffff,(sp)
  14.                 move.w  #$b,-(sp)
  15.                 trap    #13
  16.                 addq.l  #2,sp
  17.                 move.w  d0,_shiftstatus
  18.                 swap    d7
  19.                 move.l  d7,d0
  20.                 and.l   #$7f,D0
  21.                 tst.l   (sp)+
  22.                 movem.l (sp)+,D7-D7
  23.                 unlk    A6
  24.                 rts
  25. _ttputc:        link    A6,#0
  26.                 movem.l d6-d7,-(sp)
  27.                 move    $8(A6),(sp)
  28.                 and     #127,(sp)
  29.                 move    #6,-(sp)
  30.                 trap    #1
  31.                 addq.l  #2,sp
  32.                 tst.l   (sp)+
  33.                 movem.l (sp)+,R7-R7
  34.                 unlk    A6
  35.                 rts
  36.  
  37.                 .bss
  38. _scancode:      ds.w    1
  39. _shiftstatus:   ds.w    1
  40.